home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / zorphon boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  799b  |  21 lines
  1. 60100 poke53280,1:poke53281,1
  2. 60110 printchr$(142)"[147][149][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  3. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  4. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  5. 60140 fora=217to242:pokea,peek(a)or128:next
  6. 60150 print"          loadstar presents:"
  7. 60160 print"                              "
  8. 60170 print"               zorphon        [155] "
  9. 60180 print"                              [155] "
  10. 60190 print"             by nick peck     [155] "
  11. 60195 print"                              [155] "
  12. 60196 print"            copyright 1987    [155] "
  13. 60197 print"                              [155] "
  14. 60198 print"        [155]                       "
  15. 60200 print" press any key when ready to continue"
  16. 60300 geta$:ifa$=""then 60300
  17. 60301 open15,8,15,"r0:zorphon game=zorphon game"
  18. 60310 input#15,er%:close15:if er%<>63 then end
  19. 60315 print"[145]          loading zorphon ...         "
  20. 60320 load"zorphon game",8,1
  21.